home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO001.dsk
/
FIN
/
AGE.INVESTMENT.bas
next >
Wrap
BASIC Source File
|
2012-02-16
|
845b
|
26 lines
10 PRINT "FUTURE VALUE OF AN INVESTMENT"
20 PRINT
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "INITIAL INVESTMENT";
40 INPUT P
50 PRINT "NOMINAL INTEREST RATE";
60 INPUT I
70 PRINT "NUMBER OF COMPOUNDING PERIODS PER YEAR";
80 INPUT N
90 PRINT "NUMBER OF YEARS, MONTHS";
100 INPUT Y0,M
104 REM - CALCULATE YEARS FROM YEARS AND MONTHS
105 Y = (12 *Y0 +M)/12
108 REM - CALCULATE INTEREST RATE PER PERIOD;
109 REM - CONVERT FROM PERCENTTO DECIMAL
110 I = I/N/100
119 REM - CALCULATE FUTURE VALUE BY FORMULA
120 T = P *(1 +I) ^(N *Y)
130 PRINT "FUTURE VALUE=$"; INT(T *100 +.5)/100
139 REM - PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
140 PRINT
149 REM - RESTART OR END PROGRAM? USER INPUT REQUIRED
150 PRINT "MORE DATA? (1=YES,0=NO)";
160 INPUT X
170 IF X = 1 THEN 20
180 PRINT "<CTRL-D>RUNHELLO"